home *** CD-ROM | disk | FTP | other *** search
/ WinDesk 95 - An MPC Encyclopedia / WinDesk 95 - An MPC Encyclopedia.iso / power / connet / connet.~pa < prev    next >
Text File  |  1995-12-05  |  738b  |  42 lines
  1. unit Connet;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     ListBox1: TListBox;
  12.     BitBtn1: TBitBtn;
  13.     BitBtn2: TBitBtn;
  14.     procedure BitBtn1Click(Sender: TObject);
  15.     procedure BitBtn2Click(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   Form2: TForm2;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TForm2.BitBtn1Click(Sender: TObject);
  30. begin
  31.      chdir('d:\CONNET\');
  32.      StrpCopy(Cmd,'d:\CONNET\SETUP');
  33.      WinExec(Cmd,Sw_Showmaximized);
  34. end;
  35.  
  36. procedure TForm2.BitBtn2Click(Sender: TObject);
  37. begin
  38.      CLOSE;
  39. end;
  40.  
  41. end.
  42.